From: niceume <toshi@niceume.com>
Date: Sun, 24 Mar 2024 03:29:56 +0000 (+0900)
Subject: (scheme-syntax-propertize-sexp-comment): Remove unused argument
X-Git-Tag: archive/raspbian/1%30.1+1-3+rpi1^2~14^2~18^2~2072^2~8
X-Git-Url: https://dgit.raspbian.org/%22http://www.example.com/cgi/%22/%22http:/www.example.com/cgi/%22?a=commitdiff_plain;h=c4e7eec8c096219ddc6b3a981eef03ce421b8877;p=emacs.git

(scheme-syntax-propertize-sexp-comment): Remove unused argument

* lisp/progmodes/scheme.el (scheme-syntax-propertize-sexp-comment):
Remove first arg, unused.
(scheme-syntax-propertize): Adjust calls accordingly.
---

diff --git a/lisp/progmodes/scheme.el b/lisp/progmodes/scheme.el
index dc46f0fbbb8..8652abeb817 100644
--- a/lisp/progmodes/scheme.el
+++ b/lisp/progmodes/scheme.el
@@ -409,12 +409,12 @@ See `run-hooks'."
 
 (defun scheme-syntax-propertize (beg end)
   (goto-char beg)
-  (scheme-syntax-propertize-sexp-comment (point) end)
+  (scheme-syntax-propertize-sexp-comment end)
   (scheme-syntax-propertize-regexp end)
   (funcall
    (syntax-propertize-rules
     ("\\(#\\);" (1 (prog1 "< cn"
-                     (scheme-syntax-propertize-sexp-comment (point) end))))
+                     (scheme-syntax-propertize-sexp-comment end))))
     ("\\(#\\)/" (1 (when (null (nth 8 (save-excursion
                                         (syntax-ppss (match-beginning 0)))))
                      (put-text-property
@@ -425,7 +425,7 @@ See `run-hooks'."
                      nil))))
    (point) end))
 
-(defun scheme-syntax-propertize-sexp-comment (_ end)
+(defun scheme-syntax-propertize-sexp-comment (end)
   (let ((state (syntax-ppss)))
     (when (eq 2 (nth 7 state))
       ;; It's a sexp-comment.  Tell parse-partial-sexp where it ends.